home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 July
/
EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso
/
earcd
/
biz
/
dbase
/
phonemas.lha
/
PM5
/
Install_PM5
< prev
next >
Wrap
Text File
|
1997-04-13
|
4KB
|
159 lines
;
; PM5 Installer v1.2
;
(complete 5)
(askbool
(prompt "\n\nPhonemaster is shareware, and should be registered,\n"
"If used on a regulary basis... Thanks!\n\n"
"Phonemaster v5.xx was created by Fini 'Warp' Alring of GiGA Prod.©96/97\n\n"
"Phonemaster needs Reqtools.library and Rexxreqtools.library\n"
"You can get them on AmiNET etc... You probably have them already.\n\n"
"Sys:System/Rexxmast must also be running...\n"
"NOTE: You can saftely UPDATE, phonemaster with this installer!!!"
)
(choices "Okay!" "Okay!")
(help "Go on, and install!")
)
(complete 10)
(set PM5_dest (
(askdir
(prompt "Please select where you want to install Phonemaster v5.xx.\n"
"A drawer called Phonemaster will be created for it of'coz!"
)
(help @askdir-help)
(default "Sys:tools/")
)
)
)
(complete 20)
(copyfiles (source "")
(dest PM5_dest)
(prompt "Installing the Phonemaster dir...")
(infos)
(choices "Phonemaster")
(Optional "askuser" "force")
)
(complete 50)
(copyfiles (source "")
(dest "C:")
(prompt "Installing C:PM5...")
(choices "C/PM5")
(Optional "askuser" "force")
)
(complete 55)
(set OPUS
(askbool
(prompt "Do you want to install DOpus v5.xx filetype?\n Hit Help for more info...")
(choices "Yes, I do" "No, I don't have DOpus v5.xx")
(help "You can choose to install a Filetype for Dopus v5.xx\n"
"It will allow you to double click on Phone-files, to start phonemaster automatically...\n Recommended!"
)
)
)
(complete 60)
(if OPUS
(copyfiles (source "")
(dest "DOpus5:filetypes/")
(prompt "Installing Dopus v5.xx filetype...")
(choices "DOpus5/filetypes/Phonemaster-file")
(Optional "askuser" "force")
)
)
(complete 70)
(set BOOL
(askbool
(set eChar (substr PM5_dest (- (strlen PM5_dest) 1)) )
(if (= eChar ":")
(
(prompt "A single assignment need to be added to your user-startup.\n"
"It looks like this: Assign PM5: "PM5_dest"Phonemaster\n"
"(See help for more info)"
)
)
(
(prompt "A single assignment need to be added to your user-startup.\n"
"It looks like this: Assign PM5: "PM5_dest"/Phonemaster\n"
"(See help for more info)"
)
)
)
(help "PM5 needs a single assignment to be added "
"to the s:user-startup file. "
"If you do not do this, then PM5 will not work."
"If you have MCP, AssignEngine etc. Skip this part,"
"And assign PM5: with that manually instead."
)
(choices "OK! Add the line" "Skip it! - I'll do it myself!")
(default 0)
)
)
(complete 80)
(set eChar (substr PM5_dest (- (strlen PM5_dest) 1)) )
(if (= eChar ":")
(
(set PM5_fulldest (cat PM5_dest "Phonemaster"))
(makeassign "PM5" PM5_fulldest)
)
(
(set PM5_fulldest (cat PM5_dest "/Phonemaster"))
(makeassign "PM5" PM5_fulldest)
)
)
(complete 85)
(if BOOL
(startup "Phonemaster v5.xx"
(prompt " The required Assignment has been set for you to run PM5. \n\n"
"You may wish to check the s:User-Startup file to "
"be sure everything is in the proper place."
)
(help "No more help here...")
(set eChar (substr PM5_dest (- (strlen PM5_dest) 1)) )
(if (= eChar ":")
(command "assign PM5: \"" PM5_dest "Phonemaster\"\n")
(command "assign PM5: \"" PM5_dest "/Phonemaster\"\n")
)
)
)
(complete 99)
(askbool
(prompt "To start phonemaster type > PM5 < from shell.\n"
"Or use the icons in the Phonemaster drawer.\n\n"
"Please read the guide for further info...\n\n"
"You may have to reboot, in order for the assign to work.\n"
"NOTE: If you have updated Phonemaster, then delete PM5: Fini.jpeg."
)
(help "No help here...")
(choices "Have fun!" "Have even more fun!!!")
(default 0)
)
(complete 100)